home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)ta.d64 / multi labels.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  115 lines
  1. 160 POKE53280,15:POKE53281,0:POKE 53272,20
  2. 170 PRINT""
  3. 180 PRINTTAB(11):PRINT"[156] MULTI LABELS "
  4. 190 PRINT""
  5. 200 PRINT"[159]                     [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  6. 210 PRINT"[158]                      AN[170][205][206][180][213][201]
  7. 220 [153]"                        +  SGNMID$TAN PROGRAM
  8. 230 PRINT"[159]                     [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  9. 240 FOR N=1TO1000:NEXT N
  10. 250 PRINT"[147][158] MULTI LABELS "
  11. 260 PRINT"[153]DO YOU WISH TO POSITION YOUR LABELS AT"
  12. 270 PRINT"THIS TIME?  YOU WILL BE GIVEN ANOTHER "
  13. 280 PRINT"CHANCE TO POSITION BEFORE PRINTING.":PRINT
  14. 290 PRINT"[155]PRESS Y FOR YES OR N FOR NO."
  15. 300 INPUT A$:IF A$="Y"THEN GOTO 2000:IF A$="N" THEN 320
  16. 310 PRINT"[159]HOW MANY OF THIS LABEL SHALL I PRINT"
  17. 320 INPUT Z
  18. 330 PRINT"[158]WILL YOU PRINT IN ALL CAPS OR IN CAPS
  19. 340 [153]"AND LOWER CASE?  PRESS C OR L"
  20. 350 [133] X$
  21. 360 [153]"PRINTIF THIS IS THE FIRST RUN OF THE PRO-
  22. 370 PRINT"GRAM, PRESS ANY KEY TO CONTINUE.
  23. 380 [153]"IF THIS IS THE SECOND RUN,  PRESS THE
  24. 390 PRINT"POUND SIGN (\) TO PRINT YOUR LABELS.
  25. 400 [161] A$:[139] A$[178]""[167] 400
  26. 410 [139] A$[178]"\"[167] [153]" NOW PRINTING! WAIT":[137] 780
  27. 420 [153]"OPENTHIS PROGRAM WILL ALLOW YOU  TO PRINT
  28. 430 PRINT"THE NUMBER OF LABELS YOU SPECIFY ON THE
  29. 440 [153]"1525 PRINTER.  SINCE SOME PUNCTUATION
  30. 450 PRINT"CANNOT BE USED IN INPUT STATEMENTS, YOU
  31. 460 [153]"WILL BE ASKED TO CHANGE THE PROGRAM FOR
  32. 470 PRINT"INPUT OF YOUR LABEL COPY.  THIS WILL
  33. 480 [153]"ALSO ALLOW YOU TO CENTER OR SPACE YOUR
  34. 490 PRINT"COPY IN ANY MANNER DESIRED.
  35. 500 [153]"THE PROGRAM LINES TO CHANGE WILL BE
  36. 510 PRINT"LISTED FOR YOU.  CHANGES MAY BE MADE
  37. 520 [153]"WITH THE CURSOR CONTROL.  YOU WILL THEN
  38. 540 PRINT"RUN THE PROGRAM THE SECOND TIME FOR THE
  39. 550 [153]"ACTUAL PRINTING.
  40. 560 PRINT"[158]PRESS ANY KEY TO CONTINUE"
  41. 570 GET A$:IFA$=""THEN 570
  42. 580 PRINT"[147][153] PROGRAM INSTRUCTIONS "
  43. 590 PRINT"[159]IN THE LINES YOU WILL BE GIVEN, INSERT
  44. 600 [153]"YOUR OWN COPY AS PER THIS EXAMPLE:"
  45. 610 [153]"     450 PRINT#1,'    JOE SMITH
  46. 620 PRINT"     460 PRINT#1,'   206 WILSHIRE,
  47. 630 [153]"     470 PRINT#1,' HOUSTON, TX 70101
  48. 640 PRINT"      DO NOT CHANGE THE ABOVE LINES [159]"
  49. 650 PRINT"IN THE ABOVE EXAMPLE, AN APOSTROPHE HAS
  50. 660 [153]"BEEN SHOWN TO INDICATE AN ACTUAL QUOTA-
  51. 670 PRINT"TION MARK.  YOU MUST USE A QUOTATION
  52. 680 [153]"MARK IN YOUR PROGRAM CHANGES.
  53. 690 PRINT"[158]PRESS ANY KEY TO CONTINUE.
  54. 700 [161] B$: [139] B$[178]""[167] 700
  55. 710 [139] X$[178]"C"[167] [153]"LOADSYSMAKE YOUR PROGRAM CHANGES.":[137] 750
  56. 720 [139] X$[178]"L"[167] [153]"LOADSYS(null)AKE YOUR PROGRAM CHANGES.":[151] 53272,22:[137] 900
  57. 730 [153]"OPENATNFTER LISTING YOUR LABEL COPY, RERUN
  58. 740 PRINT"THE SECOND TIME TO PRINT.":LIST 870-900
  59. 750 PRINT"[159]AFTER LISTING YOUR LABEL COPY, RERUN
  60. 760 [153]"THE PROGRAM THE SECOND TIME TO PRINT."
  61. 770 [155] 800[171]830
  62. 780 [159] 1,4:[139] X$[178]"L"[167] [160] 1,4:[137] 950
  63. 790 [129] CT [178] 1 [164] Z
  64. 800 [152]1,[163]6)"
  65. 810 PRINT#1,TAB(6)"
  66. 820 [152]1,[163]6)"
  67. 830 PRINT#1,TAB(6)"
  68. 840 [152]1:[152]1:[152]1:[152]1:[152]1:[130] CT
  69. 850 [153]"CONTDO YOU WISH TO PRINT MORE LABELS?  IF
  70. 860 PRINT"YES PRESS Y AND IF NO PRESS N.
  71. 870 [161] A$:[139]A$[178]""[167] 870
  72. 880 [139] A$[178]"Y"[167] 710
  73. 890 [139] A$[178]"N"[167] [160] 1,4,14:[128]
  74. 900 [153]"AFTER LISTING THE LABEL COPY, RERUN THE
  75. 910 PRINT"PROGRAM THE SECOND TIME TO PRINT."
  76. 920 LIST 970-1000
  77. 930 CLOSE 1,4:END
  78. 940 GOTO 710
  79. 950 OPEN 1,4
  80. 960 FOR CT = 1 TO Z
  81. 970 PRINT#1,TAB(6)"
  82. 980 [152]1,[163]6)"
  83. 990 PRINT#1,TAB(6)"
  84. 1000 [152]1,[163]6)
  85. 1010 [152]1:[152]1:[152]1:[152]1:[152]1
  86. 1020 [130] CT
  87. 1030 [153]"OPENDO YOU WISH TO PRINT MORE LABELS? PRESS
  88. 1040 PRINT"Y FOR YES AND N FOR NO.
  89. 1050 [133] A$
  90. 1060 [139] A$[178]"N"[167] [160] 1,4,7:[128]
  91. 1070 [139] A$[178]"Y"[167] [153]"HOW MANY OF THIS LABEL SHALL I PRINT"
  92. 1080 [133] Z
  93. 1090 [137] 720
  94. 2000 [153]"LOADPRINT":[159] 1,4
  95. 2010 [153]"WHEN YOU HITSYS RETURNPRINT, YOUR SET-UP LINES"
  96. 2020 [153]"WILL BE PRINTED ON THE PRINTER.  MAKE ""
  97. 2030 PRINT"YOUR LABEL ADJUSTMENT AS NECESSARY.
  98. 2040 [153]"LISTIF YOUR LABEL WILL ONLY OCCUPY THREE
  99. 2050 PRINT"LINES, ADJUST THE POSITION ACCORDINGLY.
  100. 2060 [161] A$:[139] A$[178]""[167] 2060
  101. 2070 [153]" PRINTING SET-UP LINES OPEN"
  102. 2080 [152]1,[163]6)"----------FIRST LINE----------"
  103. 2090 [152]1,[163]6)"------------------------------"
  104. 2100 [152]1,[163]6)"------------------------------"
  105. 2110 [152]1,[163]6)"----------FINAL LINE----------"
  106. 2120 [152]1:[152]1:[152]1:[152]1:[152]1:[152]1
  107. 2130 [153]"OPENPRESS R TO REPEAT LINES OR C TO CON-"
  108. 2140 [153]"TINUE PROGRAM."
  109. 2150 [133] A$
  110. 2160 [139] A$[178]"R"[167] [137] 2070
  111. 2170 [139] A$[178]"C"[167] [160] 1,4,14:[137] 310
  112. 2180 [143]:         BY BOB MCCLAIN
  113. 2190 [143]:           RTE. BOX 1178
  114. 2200 [143]:         HEMPHILL TX 75948
  115.